;; file     : demoinit.scm
;; created  : Oct 15, 1995
;; author   : GW Celniker
;; copyright: Advanced Geometry Concepts, All Rights Reserved (c) 1995
;; synopsis : Defines global variable ds-model for file dsdemo.scm

(provide 'DSdemoinit )
(define ds-model '())
(define ds-model1 '())
(define ds-model2 '())
(define ds-model3 '())
(define ds-model4 '())
(define ds-model5 '())
(define ds-model6 '())
(define ds-model7 '())
(define ds-mesh   '())
(define ds-rational-flag 0)
(define ds-display-tag-flag 0)
(define ds-pressure '())
(define ds-cload1 '())
(define ds-cload2 '())
(define ds-mtalk #t)
(define ds-dm1)
(define ds-dm2)
(define ds-dm3)
(define ds-dm4)
(define ds-dp1)  ; for goblet
(define ds-dp2)  ; for goblet
(define ds-dp3)  ; for box-6mesh
(define ds-dp4)  ; for box-6mesh
(define ds-dp5)  ; for box-6mesh
(define ds-dp6)  ; for box-6mesh
(define ds-cc1)  ; for goblet and hung-square
(define ds-cc2)  ; for goblet and hung-square
(define ds-cc3)  ; for goblet and hung-square
(define ds-cc4)  ; for goblet and hung-square
(define ds-pt1)  ; for (p4) and (dp4)
(define ds-pt2)  ;
(define ds-pt3)  ;
(define ds-pt4)  ;
(define ds-pt5)  ;
(define ds-cpt)               ;; for (cross) in dsprob.scm
(define ds-spr)
(define ds-sim-count 0)

(define ds-entity-list '())   ;; for (save) in dsprob.scm
(define ds-block)             ;; for (box-test) in dsprob.scm
                              ;;     (box-blend-test)
                              ;;     (slab-test)
(define ds-eigvec 0)          ;; for dsprob.scm
(define ds-eigsize 20)        ;; for dsprob.scm




;; include the next command if you want the 
;; system to open a renderware view and
;; build a simple 6x6 NUB for demonstration
;; purposes
; (start)


